home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Util / L / LaserWriter Pro EnergySW.sit / LaserWriter Pro EnergySW / LaserWriter Utility.rsrc / TEXT_17500.txt < prev    next >
Encoding:
Text File  |  1993-04-19  |  7.7 KB  |  1 lines

  1. /B{bind D}bind D/L{load}B/dec{1 sub}B/gs{gsave}D/gr{grestore}D/tr{translate}D/rl{rlineto}B /r{rotate}D/g{setgray}D/s{stroke}D systemdict/arct known not{/arct{arcto 4{pop}repeat}B}if/¬†¬† /_R{.25 sub round .25 add}D{/ashow L}B/_r{transform _R exch _R exch itransform}D/l{_r lineto}D   /m{_r moveto}D /c{_r curveto}D /v{currentpoint 6 2 roll _r curveto}D /w{setlinewidth}D   /S{show}D /E{exch}D /F{fill}D /ff{findfont E scalefont setfont}D /R{m gs/RF ff(√Ü)S gr}D   /M{length dec}B/¬†{{0 1 2 index M{2 copy get dup 8#141 ge{8#040 sub 2 index 3 1 roll put}{pop pop}ifelse}for}}B   /Z{findfont begin currentdict dup length dict begin {1 index/FID ne{D}{pop pop}ifelse}forall      /FontName E D dup length 0 ne{/Encoding Encoding 256 array copy D 0 E{dup type /nametype      eq{Encoding 2 index 2 index put pop 1 add}{E pop}ifelse}forall}if pop currentdict dup      end end/FontName get E definefont pop}D [174/registered] /RF /Helvetica Z/ashow¬†   /cS{dup stringwidth pop -2 div 0 rmoveto S}B/leftShow{dup stringwidth pop neg 0 rmoveto S}B   /$ctxt 16 dict D $ctxt begin/œÄ 3.1415923 D/fang{stringwidth pop 2 div 2 xrds mul œÄ mul div 360 mul}B   /Oshr{/hg 1 index fang D gs hg neg r rds 0 tr -90 r dup stringwidth pop -2 div 0 m S gr hg -2 mul r}B   /Ishr{/hg 1 index fang D gs hg r rds 0 tr 90 r dup stringwidth pop -2 div 0 m S gr hg 2 mul r}B   /Otxt{$ctxt begin/rds E D E/xrds rds 3 -1 roll 12 div add D gs 1 index fang add r{1 string         dup 0 4 -1 roll put Oshr}forall gr end}B   /Itxt{$ctxt begin/rds E D E/xrds rds 3 -1 roll 3 div sub D gs 1 index fang sub r{1 string         dup 0 4 -1 roll put Ishr}forall gr end}B userdict begin[¬†   /box{/cnr E D/sidy E D/sidx E D/lly E D/llx E D newpath llx cnr add lly m llx sidx add lly        2 copy sidy add cnr arct llx sidx add lly sidy add llx 1 index cnr arct llx lly sidy        add llx lly cnr arct llx lly llx sidx add lly cnr arct s}B(exec)cvn L ¬†¬† /ofst .5 D]cvx B/calc{dup stringwidth pop ( ) stringwidth pop add 1 index length ofst mul add}B   /ss1 100 string D/cv{ss1 cvs}B/rm 146.5 360 add D/cx0 146.5 D/cxi{/cx cx0 D}B/cxa{/cx E cx add D}B /cy0{/cy E D}B/cy1{/cy cy 11 sub D}B/cy2{/cy cy 20 sub D}B/cx# 141.5 D /mf{findfont E makefont setfont}D /Times-Roman findfont dup length 6 add dict begin {1 index dup /FID eq exch /UniqueID eq or{pop pop}{def}ifelse}forall /Encoding /InternationalVec load def /CharStrings CharStrings dup length 50 add dict copy def /ArgArr [0 0 0] def /Str1 1 string def /UniqueID 44786 def /CompChar{4 -1 roll pop      currentfont dup [ exch /FontMatrix get dup 0 get 1 exch div exch     0 exch 0 exch 3 get 1 exch div 0 0 ] makefont setfont ArgArr astore pop     0 GetIndex stringwidth pop 1 GetIndex stringwidth pop sub     2 div ArgArr 1 get /macron eq {110 add}if dup gsave 0 0 moveto 0 GetIndex true charpath ArgArr 2 get moveto     1 GetIndex true charpath 0 GetIndex stringwidth pathbbox grestore      setcachedevice 0 0 moveto 0 GetIndex show ArgArr 2 get moveto 1 GetIndex show }def /GetIndex{Str1 dup 0 4 -1 roll ArgArr exch get currentfont/Encoding get      0 1 255{2 copy get 3 index eq{exit}{pop}ifelse}for 3 1 roll pop pop put}def CharStrings /Gbreve {/G /breve 210 CompChar}put CharStrings /gbreve {/g /breve 0 CompChar }put     CharStrings /Idot {/I /dotaccent 230 CompChar}put     CharStrings /Scedilla {/S /cedilla 0 CompChar}put     CharStrings /scedilla {/s /cedilla 0 CompChar}put CharStrings /Cacute {/C /acute 220 CompChar}put     CharStrings /cacute {/c /acute 0 CompChar}put CharStrings /Ccaron {/C /caron 210 CompChar}put CharStrings /ccaron {/c /caron 0 CompChar}put CharStrings /dmacron {/d /macron -40 CompChar}put /SymJam{exch pop /Symbol findfont 1000 scalefont setfont     currentfont /Encoding get 0 1 255{2 copy get 3 index eq{exit}{pop}ifelse}for      3 1 roll pop pop ( ) dup 0 4 -1 roll put dup dup gsave 0 0 moveto true charpath      stringwidth pathbbox grestore setcachedevice 0 0 moveto show}def CharStrings /notequal {/notequal SymJam}put CharStrings /infinity {/infinity SymJam}put CharStrings /lessequal {/lessequal SymJam}put CharStrings /greaterequal {/greaterequal SymJam}put CharStrings /partialdiff {/partialdiff SymJam}put CharStrings /summation {/summation SymJam}put CharStrings /product {/product SymJam}put CharStrings /pi {/pi SymJam}put CharStrings /integral {/integral SymJam}put CharStrings /Omega {/Omega SymJam}put CharStrings /radical {/radical SymJam}put CharStrings /approxequal {/approxequal SymJam}put CharStrings /Delta {/Delta SymJam}put CharStrings /blank {pop 830 0 0 0 810 810 setcachedevice 20 setlinewidth 10 10 moveto      790 10 lineto 790 790 lineto 10 790 lineto closepath stroke}put CharStrings /lozenge {/lozenge SymJam}put CharStrings /apple {/apple SymJam}put currentdict end /WorldFont exch definefont pop /¬∞show{(\050)dup stringwidth pop cxa show dup length string dup 3 -1 roll 0 E putinterval        {token{cv dup stringwidth pop dup cx add rm gt                {cxi cy1 cx cy m cxa show ( ) dup stringwidth pop cxa show}                {cxa show ( ) dup stringwidth pop cxa show}               ifelse}              {exit}              ifelse}loop( ) stringwidth pop neg dup cxa 0 rmoveto               (\051)dup stringwidth pop cxa show}B /‚Ä¢show{{token{dup type (stringtype) eq{¬∞show}{cv dup stringwidth pop dup cx add rm gt                {cxi cy1 cx cy m cxa show ( ) dup stringwidth pop cxa show}                {cxa show ( ) dup stringwidth pop cxa show}               ifelse}ifelse}{exit}ifelse}loop}D   /*show{dup stringwidth pop 360 gt{cxi ‚Ä¢show}{show}ifelse cy2}B   systemdict/setpagedevice known{   4 dict begin/PreRenderingEnhance true D/PostRenderingEnhance true D/PageSize[612 792]D   /ImagingBBox[25 25 587 767]D/Policies 1 dict dup/PageSize 3 put D currentdict end setpagedevice}if  systemdict/sethalftone known not{   /sethalftone{begin Frequency Angle/SpotFunction L end setscreen}B   /currenthalftone{currentscreen 4 dict begin/HalftoneType 1 D/SpotFunction E D/Angle E D/Frequency E D   currentdict end}B}if systemdict/execform known not{/execform{gs dup/PaintProc get exec gr}B}if /highres{currenthalftone dup length dict begin{D}forall/Frequency 106 D/Angle 45 D currentdict end sethalftone}B/lowres{currenthalftone dup length dict begin{D}forall/Frequency 53 D/Angle 45 D  currentdict end sethalftone}B/bigpatch{g 77 77 moveto -154 0 rl 0 -154 rl 154 0 rl F}B /smallpatch{g 48 48 moveto -96 0 rl 0 -96 rl 96 0 rl F}B /row{gs{256 div 1 sub neg big{bigpatch}{smallpatch}ifelse 176 0 tr}forall gr 0 176 tr}B /tiles{gs sample3 row sample2 row sample1 row sample0 row gr}B /sample0 [3 6 9 12] D /sample1 [16 21 27 33] D /sample2 [40 48 57 67] D /sample3 [78 120 170 240] D     /CalibPage 4 dict D CalibPage begin /FormType 1 D /Matrix matrix D /BBox [0 0 612 792] D /PaintProc{ pop gs     243 285 tr     72 300 div dup scale     /big true D highres tiles     /big false D lowres tiles gr gs -15 0 tr  12 /Helvetica-BoldOblique ff  121 673 m  10.5 0 statusdict begin product dup length string copy end ashow¬† [8.375 0 0 9.5 0 0] /WorldFont mf  175 cy0 [[(1.)s1][(2.)s2][(3.)s3][(4.)s4]]{cx# cy m dup 0 get leftShow cx0 cy m 1 get *show}forall gs   18 dup dup /WorldFont ff    321 552.75 tr    s6 E 90 47.5 Otxt   s7 E 270 47.5 2 index .45 mul add Itxt gr 28 /WorldFont ff  121 709 m  statusdict begin 32 string printername end S  12 /Helvetica ff  statusdict begin product end(LaserWriter)anchorsearch{pop pop 8 320 677.5 R}{pop}ifelse 8 88 671 R 24 /Symbol ff  67 671 m (Ô£ø) S 5 /Helvetica ff  589 38 m  s8 gs 90 r S gr cy 84 lt { 84 cy sub } { 0 } ifelse dup 85 E sub /ny E D 117 add /nh E D gs   0 w 231.1875 258.5 180 180 2.5 box   3.375 w 114 ny 414 nh 4.25 box   1 g 1.875 w 114 ny 414 nh 4 box   gs 0 g 0 w 114 ny 414 nh 4 box gr   20 dup /WorldFont ff    125 202 2 copy m   s5 calc   gs 5 w 4 -1 roll add 3 -1 roll l s gr   0 g 0 w E -.3 mul ( ) stringwidth pop ofst add 2 div E rmoveto    ofst E 0 E ashow gr 1 w  598 31 m 598 761 l 46 761 l 46 31 l 598 31 l s gr }D end